Все прошивки для GALxxxx на языке ABEL

MODULE profrom
clk pin 1;
" !OE pin 11;
A15..A2 pin 2,15,21,3,18,17,19,20,4,5,6,7,8,9;
A17,A16 pin 23,22 istype 'reg_d';
A,B,C,D node istype 'com';
sw node 14 istype 'com';
p16 pin 16;
src = [A17..A16].fb;
dst = [B,A];
rd_addr = [A3..A2];
ff_in = [D,C];

equations
sw=([A15..A4]==^h810);
when sw then ff_in=dst else ff_in=src;

A16.C=clk;
A17.C=clk;
A16.OE=1;
A17.OE=1;
[A17,A16].D=ff_in;

sw.OE=1;
p16.OE=0;

truth_table([rd_addr, src] -> dst)
[0, 0] -> 0;
[1, 0] -> 3;
[2, 0] -> 2;
[3, 0] -> 1;

[0, 1] -> 1;
[1, 1] -> 3;
[2, 1] -> 2;
[3, 1] -> 0;

[0, 2] -> 2;
[1, 2] -> 3;
[2, 2] -> 0;
[3, 2] -> 1;

[0, 3] -> 3;
[1, 3] -> 2;
[2, 3] -> 1;
[3, 3] -> 0;
END